0 PRINT"[147]"TAB(13)"TIME MACHINE":PRINT
1 REM =================================
2 REM    COMMODARES PROBLEM #48-3 :
3 REM      TIME MACHINE
4 REM    SOLUTION BY
5 REM      JOHN THELEN
6 REM =================================
10 INPUT"HRS.,MIN.,AMT.";H,M,A:GOSUB 30
20 A=0-A: GOSUB 30: END
30 B=H*60+M+A: C=B/60
40 IF INT(C)<1 THEN C=12+C: GOTO 40
50 IF INT(C)>12 THEN C=C-12: GOTO 50
60 B=C-INT(C): D=B/1.67: PRINT INT(C)":"INT(100*D+.5): RETURN